home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / fulldb13.arc / DEMO.PAS next >
Pascal/Delphi Source File  |  1991-10-18  |  567b  |  21 lines
  1. program demo;
  2.  
  3. { Demo program for FULLDB.  Compile normally, then single step into
  4.   the assembler routines wordcount and getword! }
  5.  
  6. {  NB:  See the special instructions to recompile PARSE.PAS and reassemble
  7.         PARSE.ASM if PARSE.TPU or PARSE.OBJ is missing, or if you're using
  8.         other than TP 6.0.  }
  9.  
  10. uses parse;
  11.  
  12. var
  13.   s : string;
  14.   w : word;
  15. begin
  16.   s := '            This sentence     has 5 words';
  17.   writeln(wordcount(s));
  18.   for w:=0 to 6 do
  19.     writeln('w = ',w,' length = ',length(getword(w,s)),' word = ',getword(w,s));
  20. end.
  21.